000100 CREATEKS JOB 000400 STEP1 EXEC PGM=IDCAMS 001300 SYSPRINT DD SYSOUT=* 001400 SYSIN DD * 001500 DEFINE CLUSTER (NAME(KC03K00.LAB2C.ACCTM2) - 001600 RECORDS(15 15) - 001700 RECORDSIZE(100 100) - 001800 KEYS(9 60) - 001900 INDEXED) - 002000 DATA (NAME(KC03K00.LAB2C.ACCTM2.DAT)) - 002100 INDEX (NAME(KC03K00.LAB2C.ACCTM2.IDX)) 002200 /* 002300 //*
You need to enable Javascript in your browser to edit pages.
help on how to format text
This code segment will create a VSAM dataset named KC03K00.LAB2C.ACCTM2